home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / LOGOLIB / PON < prev    next >
Text File  |  1991-08-29  |  163b  |  10 lines
  1. to pon :names
  2. ignore error
  3. catch "error [po namelist :names]
  4. local "err
  5. make "err error
  6. if not emptyp :err [(throw "error first bf :err)]
  7. end
  8.  
  9. bury "pon
  10.